#!/usr/bin/perl -w

package Tupla;
sub new
{
    my $class = shift;
    my $self = {
    	_name 	=> shift,
    	_value 	=> shift,
    };
    bless $self, $class;
    return $self;
}

sub getName{
	my ($self) = @_;
	
	return $self->{_name};
}
sub getValue{
	my ($self) = @_;
	
	return $self->{_value};
}
sub setValue{
	my ($self, $value) = @_;
	
	$self->{_value} = $value; 
}
1;